===========================================================================
 BBS: The Abacus * HST/DS * Potterville MI
Date: 02-13-93 (19:50)             Number: 39
From: EARL MONTGOMERY              Refer#: NONE
  To: ALL                           Recvd: NO  
Subj: Graphic Font Editor part       Conf: (35) Quick Basi
---------------------------------------------------------------------------
'Part 6 of 6 Font Editor
     inregs.ax = 3
     CALL interruptx(&H33, inregs, outregs)
     x = outregs.cx
     y = outregs.dx
     IF outregs.bx = 1 THEN
     inregs.ax = 2
     CALL interruptx(&H33, inregs, outregs)
     PAINT (x, y), 2, 8
     END IF
     IF outregs.bx = 2 THEN
     inregs.ax = 2
     CALL interruptx(&H33, inregs, outregs)
     PAINT (x, y), 0, 8
     END IF
     IF i$ = "-" OR i$ = "_" THEN
     inregs.ax = 2
     CALL interruptx(&H33, inregs, outregs)
     GOSUB DecreaseAsciiValue
     END IF
     IF i$ = "=" OR i$ = "+" THEN
     inregs.ax = 2
     CALL interruptx(&H33, inregs, outregs)
     GOSUB IncreaseAsciiValue
     END IF
     IF i$ = "a" OR i$ = "A" THEN
     inregs.ax = 2
     CALL interruptx(&H33, inregs, outregs)
     GOSUB ShowPresentCharSet
     END IF
     IF i$ = "c" OR i$ = "C" THEN
     inregs.ax = 2
     CALL interruptx(&H33, inregs, outregs)
     GOSUB ChangeAsciiValue
     END IF
     IF i$ = "l" OR i$ = "L" THEN
     inregs.ax = 2
     CALL interruptx(&H33, inregs, outregs)
     GOSUB LoadNewCharSet
     END IF
     IF i$ = "s" OR i$ = "S" THEN
     GOSUB SaveNewCharSetToDisk
     END IF
     IF i$ = "x" OR i$ = "X" THEN
     ec = 1
     inregs.ax = 2
     CALL interruptx(&H33, inregs, outregs)
     GOSUB ClearScreen
     END IF
     IF i$ = CHR$(13) THEN
     inregs.ax = 2
     CALL interruptx(&H33, inregs, outregs)
     GOSUB UpdateArray
     END IF
     IF i$ = "" THEN
     GOTO MainMouseInkey
     END IF
     GOTO MainMouseInkey
' Part 6 of 6 end of program

--- Maximus 2.01wb
 * Origin: Rabbit and Snake's BBS - Richardson, Texas (1:124/6108)
SEEN-BY: 1/211 11/2 4 13/13 101/1 108/89 109/25 110/69 114/5 123/19 124/1
SEEN-BY: 153/752 154/40 77 157/2 159/100 125 430 950 203/23 209/209 280/1
SEEN-BY: 390/1 396/1 15 397/2 2230/100 3603/20